-- Count the number of lines, words and characters from STDIN.

main = interact wordCount
       where wordCount input = show (length (lines input)) ++ ' ' :
                               show (length (words input)) ++ ' ' :
                               show (length input) ++ "\n"
